home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / bcpl4amiga.lha / bcpl / cghdr.bpl < prev    next >
Text File  |  1988-03-24  |  5KB  |  220 lines
  1. GLOBAL $(
  2. PRSOURCE: 110
  3. QUIET:129
  4. SYSOPT:320; SYSIPT:321; SYSPCH:322; CODESTREAM:323; DIAGNOSTICS:326
  5. REPORTCOUNT:331; REPORTMAX:332
  6. $)
  7.  
  8. MANIFEST $(
  9. H1=0; H2=1; H3=2; H4=3; H5=4
  10. ERROR=0; NUMBER=1; LOC=2; GLOB=3; LAB=4
  11. LVLOC=5; LVGLOB=6; LVLAB=7; REG=8; FREG=9
  12. $)
  13.  
  14. MANIFEST   // OCODE operators and other constants
  15. $( C.TRUE=4; C.FALSE=5
  16.    C.RV=8; C.FNAP=10
  17.    C.MULT=11; C.DIV=12; C.REM=13; C.PLUS=14; C.MINUS=15; C.NEG=17
  18.    C.FIX=18; C.ABS=19
  19.    C.EQ=20; C.NE=21; C.LS=22; C.GR=23; C.LE=24; C.GE=25
  20.    C.SLCTAP=27
  21.    C.NOT=30; C.LSHIFT=31; C.RSHIFT=32; C.LOGAND=33; C.LOGOR=34
  22.    C.EQV=35; C.NEQV=36
  23.    C.NEEDS=48; C.SECTION=49
  24.    C.RTAP=51; C.GOTO=52;
  25.    C.FINISH=68
  26.    C.SWITCHON=70; C.GLOBAL=76
  27.    C.LP=40; C.LG=41; C.LN=42; C.LSTR=43; C.LL=44
  28.    C.LLP=45; C.LLG=46; C.LLL=47
  29.    C.SP=80; C.SG=81; C.SL=82; C.STIND=83; C.SLCTST=84
  30.    C.JUMP=85; C.JT=86; C.JF=87
  31.    C.LAB=90; C.STACK=91; C.STORE=92; C.RSTACK=93; C.ENTRY=94
  32.    C.SAVE=95; C.FNRN=96; C.RTRN=97; C.RES=98
  33.    C.DATALAB=100; C.ITEML=101; C.ITEMN=102; C.ENDPROC=103
  34. C.END=104; C.STARTBLOCK=105; C.ENDBLOCK=106; C.DEBUG=107
  35. C.MOD=110; C.MODSLCT=111
  36. C.GETBYTE=120; C.PUTBYTE=121
  37. C.FMULT=267; C.FDIV=268; C.FPLUS=270; C.FMINUS=271; C.FNEG=273
  38. C.FLOAT=274; C.FABS=275
  39. C.FEQ=276; C.FNE=277; C.FLS=278; C.FGR=279; C.FLE=280; C.FGE=281
  40.  
  41. FLBIT=256
  42. $)
  43.  
  44. GLOBAL $(
  45. MEMBERNAMEING:334; SECTIONNAME:336
  46. WORKBASE:350; WORKTOP:351
  47. OBUFB:353; CGWORKVEC:355
  48. GETBYTES:370
  49. CODEGEN:390
  50. $)
  51.  
  52. GLOBAL $(  // BCG0
  53. BINING:401; LISTING:403
  54. DECK:405; CGTRACE:406; LISTDECK:407
  55. SEQNUMB:410; INCODE:412
  56. COUNTFLAG:415; CALLCOUNTING:416; COUNTING:417
  57. STINDRET:418; STKCKING:419
  58. $)
  59.  
  60. GLOBAL $(  // BCG1
  61. READOP:430; READN:431; READL:432; READGN:433
  62. $)
  63.  
  64. GLOBAL $(  // BCG2
  65. CG370:450; CGREPORT:451; CGMESSAGE:452
  66. NEXTPARAM:455; INITSTACK:456; LOAD:457
  67. LOSE:460; STACK:461; STORE:462
  68. STORET:465; USING:466; NEXTR:467; FREEREG:468
  69. TEMPV:470; TEMPT:471; SSP:472
  70. ARG1:475; ARG2:476; LABV:477; PARAMNUMBER:478
  71. ENDLAB:480; HLAB:481; FLAB:482; SLAB:483
  72. MAXGN:487; MAXL:488
  73. $)
  74.  
  75. GLOBAL $( // BCG3
  76. SCAN:490; OP:491
  77. $)
  78.  
  79. GLOBAL $(  // BCG4
  80. CGSWITCH:500; LABVECSWITCH:501; BINTREESWITCH:502
  81. CASEK:505; CASEL:506
  82. CGENTRY:510; CGSAVE:511; CGENDPROC:512; CGAPPLY:513
  83. $)
  84.  
  85. GLOBAL $(  // BCG5
  86. CGSTIND:520; CGMULT:521; CGPLUS:522
  87. CGASSOP:523
  88. CGRELOP:525; CONDITION:526; CGSHIFT:527
  89. CGLOGOP:528
  90. CGBYTEAP:529
  91. $)
  92.  
  93. GLOBAL $(  // BCG6
  94. CGSTRING:530; CGGLOBAL:531; GENDATA:532
  95. DATA:535; SDATA:536; FDATA:537; HDATA:538
  96. FREF:540; HREF:541; XREF:542
  97. INITDATALISTS:545; MAP1:546; MAP2:547
  98. DP:550; DATAP:551; DATALIST:552
  99. XREFP:553; XREFLIST:554
  100. SDATAP:555; SDATALIST:556; STRINGADDR:557
  101. NEEDSP:558; NEEDSLIST:559
  102. FDATAP:560; FDATALIST:561; HDATAP:562; HDATALIST:563
  103. FREFP:565; FREFLIST:566; HREFP:567; HREFLIST:568
  104. $)
  105.  
  106. GLOBAL $(
  107. NAMING:570; NAMEL:571; NAMET:572; NAMES:574
  108. BLOCKLABEL:578; PROCLABEL:579
  109. $)
  110. GLOBAL $(  // BCG7
  111. COMPILE:580; MOVETOANYCR:581; MOVETOANYR:582
  112. MOVETOR:585; CLASS:586
  113. GENRHFK:590; GENRHF:591; GENRF:592; SETRTOK:593
  114. $)
  115.  
  116. GLOBAL $(  // BCG8
  117. GENRXA:600; ADJUSTADDR:601; GENRXL:602
  118. GENSIA:603
  119. GENRS:605; GENRR:606; JUMP:607; CONDJUMP:608
  120. GENLAB:610; GENDCF:611; GENDCA:612; GENDCAX:613
  121. GENDCH:615; GENDCAL2:616; GENDCX:617
  122. CSECTN1:618; CSECTN2:619
  123. CNOP:620; INSERTCOUNT:621; CGSTART:622; CGEND:623
  124. CSECTFLAG:624
  125. FNHREF:625; FNFREF:626; PUTHW:627; PUTFW:628
  126. TXTV:630; TXTP:631; TP:632; LEFTHW:633
  127. BASE:635; BASELAB:636; BASEADDR:637
  128. BASEFRMLAB:638; BASEFRMADDR:639; BASEFRMSIZE:640
  129. BASEOVRFLW:641
  130. GENSTKCK1:642; GENSTKCK2:643
  131. $)
  132.  
  133. GLOBAL $(  // BCG9
  134. OPCODE:644
  135. WRCARD:645; BINTOX:646; CARDWORD:647; DECKOUT:648
  136. CW:649
  137. $)
  138.  
  139. GLOBAL $(    // floating-point things
  140. USINGF:650; NEXTFR:651; FREEFREG:652
  141. MOVETOFR:653; MOVETOANYFR:654
  142. GENFRHF:655
  143.  
  144. CGFLOAT:660; FLOATL:661; CGFIX:662; FIXL:663
  145. CGFSYM:665; CGFASYM:666
  146. $)
  147.  
  148. GLOBAL  $(
  149. CGSLCTST:671
  150. $)
  151.  
  152. GLOBAL $(
  153. DISCARDREGS:675; DISCARDREG:676; DISCARDADDRESS:677
  154. LOADADDRESS:678; MOVESTOR:679; MOVERTOR:680; STORER:681
  155. PRINTREGLIST:682; DEBUG:684
  156. REGLIST:685
  157. LOOKFOR:688
  158. LOCK:690; UNLOCK:691; LOCKED:692
  159. $)
  160.  
  161. MANIFEST $(
  162.          R.K4=1;  R.K8=2;  R.K12=3
  163. R.B=4;   R.P=5;   R.L=6;   R.A1=7
  164. R.A2=8;  R.A3=9;  R.A4=10; R.S=11
  165. R.G=12;           R.A=14;  R.W=15
  166.  
  167. FR.A=0; FR.B=2; FR.C=4; FR.D=6
  168.  
  169. M.LS=4;  M.GE=10;  M.GR=2;  M.LE=12
  170. M.EQ=8;  M.NE=7;  M.ALL=15
  171.  
  172. S.COUNT=20; S.FIN=40; S.STKCK=60; S.STKCKCOUNT=80
  173.  
  174. K4=4096; K8=8192; K12=12288; K32=32768
  175. HWBITS=65535
  176.  
  177. FWSP=96         // work-space for fix, float (relative to b13)
  178.  
  179. MCWD = 32               // number of bits in a word for the compiler
  180.  
  181. FRTYPE=0; RTYPE=1; KTYPE=2; ATYPE=3
  182. $)
  183.  
  184.  
  185. MANIFEST   $( // IBM 370 op codes
  186. F.BALR=#X05; F.BAL=#X45
  187. F.BCR =#X07; F.BC =#X47
  188.              F.ST =#X50; F.STH=#X40; F.STM=#X90
  189.                          F.STC=#X42; F.MVI=#X92
  190. F.NR  =#X14; F.N  =#X54;             F.NI =#X94
  191. F.OR  =#X16; F.O  =#X56;             F.OI=#X96
  192. F.XR  =#X17; F.X  =#X57
  193. F.LR  =#X18; F.L  =#X58; F.LH =#X48; F.LM =#X98
  194. F.CR  =#X19; F.C  =#X59; F.CH =#X49
  195. F.AR  =#X1A; F.A  =#X5A; F.AH =#X4A
  196. F.SR  =#X1B; F.S  =#X5B; F.SH =#X4B
  197. F.MR  =#X1C; F.M  =#X5C; F.MH =#X4C
  198. F.DR  =#X1D; F.D  =#X5D
  199. F.LA  =#X41
  200. F.LPR =#X10; F.LCR=#X13
  201. F.SRL =#X88; F.SLL=#X89
  202. F.SRDA=#X8E
  203. F.IC  =#X43; F.TM =#X91
  204.  
  205. // floating-point op-codes
  206.  
  207. F.LPER=#X30
  208. F.LTER=#X32
  209. F.LCER=#X33
  210. F.LER=#X38; F.LE=#X78
  211. F.CER=#X39; F.CE=#X79
  212. F.AER=#X3A; F.AE=#X7A
  213. F.SER=#X3B; F.SE=#X7B
  214. F.MER=#X3C; F.ME=#X7C
  215. F.DER=#X3D; F.DE=#X7D
  216. F.STE=#X70
  217. F.AW=#X6E;   F.SDR=#X2B; F.AD=#X6A
  218. F.STD=#X60
  219. $)
  220.